home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / TRANS.SBD < prev    next >
Text File  |  1990-06-01  |  3KB  |  52 lines
  1. Stock_Key      ;TXT VAL REQ IXD ;27                    ;0  ;6  ;>
  2. LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) ELSE REQUEST "Stock key not found - Please select another Stock","",20,,Stock_Key.TRANS,60,Stock_Key.STOCKS,Company Name.STOCKS
  3. Customer_Ref   ;TXT VAL REQ IXD ;8                     ;0  ;46 ;>
  4. LOOKUP (Customer_Ref.TRANS,Customer_Ref.CLIENTS) ELSE REQUEST "Customer ref not found - Please select another customer","",20,,Customer_Ref.TRANS,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
  5. Transaction ref;NUM CON RDO IXD ;000000.               ;1  ;0  ;>
  6. SER ("TRANS")
  7. Trans_Type     ;TXT VAL REQ     ;1                     ;1  ;48 ;>
  8. Trans_Type.TRANS = "b" OR Trans_Type.TRANS = "s" ELSE REQUEST "Valid types are (b)uy or (s)ell","",4,,Trans_Type.TRANS,1
  9. Trans_Date     ;DAT CON         ;mmm dd,yy             ;2  ;5  ;>
  10. TODAY 
  11. Trans_Time     ;TIM CON         ;hh:mm am              ;2  ;48 ;>
  12. NOW 
  13. Settlement_Date;DAT CON         ;mmm dd,yy             ;3  ;0  ;>
  14. Trans_Date.TRANS + 7
  15. Quantity       ;NUM             ;99999999.             ;5  ;7  ;
  16. Stock_Price    ;NUM CLC         ;9999999.0000          ;7  ;4  ;>
  17. Stock_Price.TRANS = 0 AND LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) AND (Trans_Type = "s") ? Price Bid.STOCKS:Stock_Price.TRANS = 0 AND LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) AND (Trans_Type = "b") ? Price Asked.STOCKS:Stock_Price.TRANS
  18. Currency       ;TXT CLC RDO IXD ;3                     ;5  ;50 ;>
  19. Currency.TRANS = "" ? Currency.STOCKS:Currency.TRANS
  20. Currency_Value ;NUM CLC RDO     ;99999999.00           ;7  ;44 ;>
  21. (Trans_Type = "b") ? (Stock_Price.TRANS * Quantity.TRANS) / Factor.CURRENCY:(Stock_Price.TRANS * Quantity.TRANS) / Factor.CURRENCY * - 1
  22. USD Xrate      ;NUM CLC RDO     ;9999999.0000          ;6  ;49 ;>
  23. USD Xrate.TRANS = 0 AND LOOKUP (Currency.TRANS,Currency.CURRENCY) ? USD Xrate.CURRENCY:USD Xrate.TRANS
  24. USD Price      ;NUM CLC RDO     ;9999999.00            ;8  ;6  ;>
  25. (Stock_Price.TRANS / Factor.CURRENCY) / USD Xrate.TRANS
  26. USD Value      ;NUM CLC RDO     ;-999999.00            ;8  ;49 ;>
  27. Currency_Value.TRANS / USD Xrate.TRANS
  28. Commission_Rate;NUM CLC         ;99.00                 ;10 ;0  ;>
  29. Commission_Rate = 0 AND LOOKUP (Customer_Ref.TRANS,Customer_Ref.CLIENTS) ? Commission_Rate.CLIENTS:Commission_Rate.TRANS
  30. Comm_Value     ;NUM CLC RDO     ;-9999999.00           ;10 ;48 ;>
  31. Commission_Rate.TRANS * ABS (USD Value.TRANS) / 100
  32. IndexCustStock ;VTX CLC RDO IXD ;35                    ;13 ;1  ;>
  33. Customer_Ref.TRANS + Stock_Key.TRANS
  34. IndexStockCust ;VTX CLC RDO IXD ;35                    ;14 ;1  ;>
  35. Stock_Key.TRANS + Customer_Ref.TRANS
  36. Certificate_No ;TXT             ;20                    ;11 ;1  ;
  37. Cert_Sent_yn   ;TXT CON         ;1                     ;11 ;46 ;>
  38. "n"
  39. Invoice_Sent_yn;TXT CON         ;1                     ;12 ;43 ;>
  40. "n"
  41. Trans_Desc     ;VTX CLC RDO     ;6                     ;15 ;5  ;>
  42. (Trans_Type.TRANS = "b") ? "Bought":"Sold"
  43. Total_Due      ;NUM CLC RDO     ;z-9999999.00          ;16 ;6  ;>
  44. USD Value.TRANS + Comm_Value.TRANS
  45.  
  46. Stock_Key
  47. Customer_Ref
  48. Transaction ref
  49. Trans_Date
  50. USD Value
  51. Comm_Value
  52.